home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 8
/
008.d81
/
wob boot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
674b
|
25 lines
5 ifx>0then70
10 rem wob boot
20 rem 12/20/84
30 :
40 print"[147]":poke53281,0:poke53280,0:t$="[215][160][207][160][194][160][160][160][194][160][207][160][207][160][212]":gosub60000
50 t$="by":gosub60000
60 t$="[202]immy [215]eiler":gosub60000:t$="and":gosub60000:t$="[193]lan [199]ardner":gosub60000
65 print:print" ... loading ..."
70 ifx=0thenx=1:load"wob.i.c",8,1
80 print:print" [211][217][211] 49158 to stop."
82 print" [211][217][211] 49152 to re-start"
83 print:print
90 print:print:print"[208]ress a key to activate [215][207][194][194][204][197]."
92 poke198,0:wait198,1:getk$:sys49152
100 print"[147]":forx=0to15step2:poke646,x:fory=0to39:print".";:next:next
110 print""
120 print"[212]o return to [204][207][193][196][211][212][193][210], press <[210][197][212][213][210][206]>"
125 print"twice."
130 print:print:poke198,0
140 print"sys49158:load"chr$(34)"hello"chr$(34)",8":print"run[145][145][145][145][145][145][145][145]"
150 end
60000 rem centering
60002 t=len(t$):t=20-t/2
60004 printtab(t)t$:print:return